Sub FindTom()
Dim rst1 As Recordset

'Create a recordset reference, then set its properties
Set rst1 = New ADODB.Recordset

'Open the recordset, Find Toms record, then print several fields
from his record
rst1.Open "MEMBERS", CurrentProject.Connection
rst1.Find "[FirstName] = 'Tom'"
Debug.Print rst1.Fields(0).Value, rst1.Fields(1).Value, _
    rst1.Fields(2).Value, rst1.Fields(5).Value

'Clean up after yourself
rst1.Close
Set rst1 = Nothing

End Sub
